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The programming language, BASIC ("Beginner"s All-purpose 
Symbolic Instruction Code"), was originally developed at Dart- 
mouth as a language to teach programming, and has since become 
one of the most popular languages for al1 applications because 
of its simplicity, generality, and ease of use. Tiny Basic was 
likevise defined as a learning tool at the People"s Computer 
Company, and has similarly gained considerable popularity be- 
cause of its small size and minimal computer requirements. 

Tiny Basic is a subset of the original Dartmouth Basic, 
omitting a fev of the more esoteric statement types, strings, 
and arrays, and limiting the user to only 26 variables (the 
single letters of the alphabet) and 16-bit integers. To this 
is added a computed line number capability for the GOTO and 
GOSUB statements, so that the language is both complete and 
powerful. | 

The AMI Prototyping Board version of Tiny Basic is designed 
to execute entirely on an unmodified PROTO system. The Tiny 
Basic interpreter executes from the EPROM space, EOOO-E7FF, using 
the four $6834 sockets on the Proto board. The interpreter 
temporary. storage, and the user data variables are stored in 
memory page 00, and all the rest of the memory space is avail- 
able to the user for Basic program storage and the GOSUB return 
address stack. Input and output using the Basic INPUT and PRINT 
statements is done using the 86850 ACIA connected to the user 
teleprinter or other terminal. Direct byte input and output is 
possible using the USR function, with reference to the 56820 
PIAs on the system, although Tiny Basic makes no direct reference 
to them. 

The AMI S6800 Tiny Basic is designed to use all of the memory 
space (RAM) available to it for user programs. When the program 
is initially started from Proto with a G E000 command, the Tiny 
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Basic interpreter scans the memory space, beginning with the 
second half of Page 00. All of the RAM (writable) memory con- 
tiguous with page 00 is allocated as part of the user program 
space. If the system has no added memory, location 0200 will 
be found to be vacant in this scan, so Tiny Basic allocates 
the two pages of RAM in the upper address space for program 
memory (i.e. FE00-FFF7) also, a total of a little more than 800 
bytes of memory. On the other hand, if the user has added large 
amounts of memory in the lower address space, so that it is con- 
tiguous with page 00, Tiny Basic will use only that part of the. 
memory for user program and stack space, leaving the upper RAM 
untouched. Note that Tiny Basic uses. nearly all of memory 
page 00 (addresses 0000-00FF), and this memory must be present 
for Tiny Basic to function. 

To run Tiny Basic requires only that the EPROMs be installed, 
and the Proto command, 

>G. E000 I 

be typed in. Since Tiny Basic does not initialize the ACIA, the 
restart vector switches should not be directly set to E000 without 
going through Proto at least once after power on. The High/Low 
RAM switch should be set to "Low" unless additional memory has 
been placed in the system beginning at location 0000. When prop- 
erly entered, Tiny Basic will type out the command line prompt, 
a colon, on the left margin of a new line. Now command lines or 
numbéred program statements may be typed in. 

All input to Tiny is buffered in a 72 character line, termin- 
ated by a Carriage Return ("CR"). Excess characters are ignored, 
as signalled by ringing the console/terminal bell. When the CR 
is typed in, Tiny will echo it with a Linefeed, then proceed to 
process the information in the line. If a typing error occurs 
during the input of either a program line or data for an INPUT 
statement, the erroneous characters may be deleted by "backspacing" 
over them and retyping. If the entire line is in error, it may be 
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cancelled (and thus ignored) by typing the "Cancel" key. The 
Backspace code is a "left arrov" or ASCII Underline (shift 0 

on your Teletype). The Cancel code is the ASCII Cancel code 

(Control X). 

When Tiny ends a line (either input or output), it types a 
CR, two pad characters, a Linefeed, and one more pad character. 
The pad character used is a NULL code (hex 00). 

Tiny Basic 6800 has a provision for suppressing output (in 
particular line prompts) when using paper tape for loading a 
program or inputting data. This is activated by the occurrence 
of a Linefeed in the input stream (note that the user normally 
has no cause to type a Linefeed since it is echoed in response 
to each CR), and disables all output (including program output) 
until the tape mode is deactivated. The tape mode is turned off 
by the occurrence of an X-OFF character (ASCII DC3, or Control 8) 
in the input, by the termination of an executing program due to 
an error, or after the execution of any statement or .command 
Which leaves Tiny in the command mode. 

Occasionally it is desirable to interrupt the operation of 
a Tiny Basic program, or to abort a long program listing. This 
may be done by typing the Escape key on the terminal. Actually 
any key (except NUL) may be typed, and program execution will be 
suspended at the completion of the current statement line. Note 
that the printout from a single PRINT statement cannot be inter- 
rupted this way, but when that statement completes, and execution 
is about to advance to the next statement, the escape keyin typed 
during the printout will be honored. 

Under certain circumstances a programming error in the Basic 
program may have catastrophic consequences, requiring the MPU to 
be reset. Although this is only possible in connection with im- 
proper use of the USR function, if the program is long, it may be 
desirable to recover without destroying the program stored in the 
user program space. For this purpose only, Tiny Basic may be 


entered with the Proto command; 


>G E003 
which bypasses the initialization of the memory, so that the 
program is preserved. The user should note, however, that if 
the catastrophic failure also destroyed certain parameters in 


page 00, recovery by this means may not be possible. 


STATEMENTS 

Tiny Basic 6800 is a subset of Dartmouth Basic, with a fev 
extensions to adapt it to the microcomputer environment. . Appen- 
dix.B contains a BNF definition of the language; the discussion 
here is intended to enable you to use it. When Tiny issues a 
line prompt (a colon on the left margin) you may type in a state- 


ment with or without a line number. If the line number is included, 


the entire line is inserted into the user. program space in line 


number sequence, without further analysis. Any previously existing 


line with the same line number is deleted or replaced by the new 
line. If the new line consists of a line number only, it is con- 
sidered a deletion, and nothing is inserted. Blanks are not sig- 


nificant to Tiny, so blanks imbedded in the line number are ignored; 


however, after the first non-blank, non-numeric. character in the 
line, all blanks are preserved in memory. 
The following are valid lines with line numbers: 
123 PRINT "HELLO" 
456 GOTOl1 2 3 
7 8 9 PRINT "THIS IS LINE #789" 
123 
32767 PRINT "THIS IS THE LARGEST LINE #" 
1PRINT"THIS IS THE SMALLEST LINER" 
10000 TINY BASIC 6800 DOES NOT CHECK 
10001 FOR EXECUTABLE STATEMENTS ON INSERTION. 


0 is not a valid line number. 


If the input line does not begin with a line number, it is 
executed directly, and must consist of one of the following state- 


ment types: 


e Ap 


2 


2 


gå 


LET - GOTO . > o REM 


TF ..... THEN GOSUB CLEAR 
INPUT RETURN LIST 
PRINT END RUN 


These statement types are discussed in more detail”in the 
pages to follow. | 

Note that all twelve statement types may be used in either 
the Direct Execution mode (without a line number) or in a pro- 
gram sequence (with a line number). Two of the statements (IN- 
PUT and RUN) behave slightly differently in these two operating 
modes, but otherwise each statement works the same in Direct 
Execution as within a program. Obviously there is not much 
point in including such statements as RUN or CLEAR in a program, 
but they are valid. Similarly, a GOSUB statement executed direc- 
tly, though valid, is likely to result in an error stop when the 


corresponding RETURN statement is executed. 


EXPRESSIONS 
Many of these statement types involve the usé.of EXPRESSIONS. 
An expression is the combination of one or more NUMBERS ‘or VARI- 
ABLES, joined by OPERATORS, and possibly grouped by Parentheses. 
There are four Operators: 
m addition 


- substraction 
# multiplication 
/ division 


These are hierarchical, so that in an expression without paren- 
theses, multiplication and division are performed before addi- 
tion and substraction. Similarly, sub-expressions within paren- 
theses are evaluated first. Otherwise ‘evaluation proceeds from 
left to right. Unary operators (+ and -) are allowed in front 
of an expression to denote its sign. 

A number is any sequence of decimal digits (0, 1, 2,...9),” 
denoting the decimal number so represented. Blanks have no sig- 


nificance and may be imbedded within the number for readability 


if desired, but commas are not allowed. All numbers are evalu- 
ated as 16-bit signed numbers, so numbers with five or more 
digits are truncated modulo 65536, with values greater than 32767 
being considered negative. 
“ The following are some valid numbers (note that the last two 
are eguivalent to the first two in TINY): 
0 
100 
10 000 
1234 
32767 
65536 
65 536 
A Variable is any Capital letter (A, B, ...Z). This variable 
is assigned a fixed location in memory (two bytes, the address of 
which is twice the ASCII representation of the variable name). It 
may assume any value in the range, -32768 to +32767, as 
assigned to it be a LET or INPUT statement. 
The following are some examples of valid expressions: 
A 
123 
1+2-3 
B-14%C 
(A+B)/(C+D) 
-128/(-32768+(I*I) 
«ID 
All expressions are evaluated as integers modulo 65536. Thus 
an expression such as | 
N/ PRP 
may not evaluate to the same value as (N);and in fact this may be 
put to use to determine if a variable is an exact multiple of some 
number. ‘TINY BASIC 6800 also makes no attempt to discover arith- 
metic overflow conditions, except in the case of an attempt to 


divide be zero (which results in an error stop). Thus all of 
the following expressions evaluate to the same value: 

-4096 

15*4096 

32768/8 

30720130720 


TINY BASIC 6800 allows two intrinsic functions. These are: 
Random Number Generator 
User Sub-routine 
Either of these functions may be used anyvhere an expression is 


appropriate. 
FUNCTIONS 


RANDOM NUMBER Generation. 
RND (range) 
This function has as its value, a positive pseudo-random 
number between zero and range -1, inclusive. If the range argu- 


ment is zero an error stop results. 


USER SUB-ROUTINE 
USR (address) 
USR (address, Xreg) 
USR (address, Xreg, A&Breg) 
This function is actually a machine-language subroutine call 
to the address in the first argument. The second argument is 
included; the 6800 X register contains that value on entry to the 
subroutine. If the third argument is included, the 6800 A and. B 
accumulators contain that value on entry to the subroutine, with 
the most significant part in B. On exit, the value in the A and 
accumulators becomes the value of the function. All three argu- 
ments are evaluated as normal expressions (numbers are decimal). 
For your convenience, location -8172 (decimal, hexadecimal ad- 
dress equivalent E014 is the entry point of a subroutine to read 


one byte from the memory address in the X register, and location 


-8168 is the entry point of a subroutine to store one byte into 
memory. Appendix E gives examples of the USR function used for 


memory access. 


STATEMENT TYPES 


PRINT print-list 
PR print-list 


This statement prints on the console/terminal the values of 


the expressions and/or the contents of the strings in the print- 
list. | The print-list has the general form, 

item, item. . . or item; item. . . 

The items may be expressions or alphanumeric strings enclosed in 
quotation marks (e.g. "string"). Expressions are evaluated and 
printed as signed numbers; strings are printed as they occur in 
the PRINT statement. When the items are separated by commas the 
printed values are justified in columns of 8 characters wide; when 
semicolons are used there is no separation between printed items. 
Thus, 


PRINT 1,2,3 


prints as TA 


and 


PRINT 13233 
prints as 
123 
Commas and semicolons, strings and expressions mav be mixed in one 
PRINT statement at will. 

If a PRINT statement ends with a comma or semicolon TINY BASIC 
6800 will not terminate the output line so that several PRINT 
statements may print on the same output line, or an output message 
mav be printed on the same line, or an output message mav be prin- 
ted on the same line as an input request (see INPUT). When the 
PRINT statement does not end with a comma or semicolon the output 
is terminated with a carriage return and linefeed (with their 
associated pad characters). To aid in preparing data tapes for input 
to other programs, a colon at the end of a print-list will output 
an "X-OFF" control character just before the Carriage Return. m 
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Although the PRINT statement generates the output immediately 
while scanning the statement line, output lines are limited to 127 
characters, with excess suppressed. i 

While the Break Kev will not interrupt a PRINT statement in 
progress, the Break condition will take effect at the end of the 
current PRINT statement. 

The following are some examples of valid PRINT statements: 

PRINT "A="; A, "B+C="; B+C 

PR (one blank line) 

PRI (prints the value of I) 
PRINT 1,",",Q4P;",",R/U2: 


INPUT input-list 


This statement checks to see if the current input line is 
exhausted. If it is, a question mark is prompted with an X-ON 


control character, and a new line is read in. Then or otherwise, 


the input line is scanned for an expression which is evaluated. 


The value thus derived is stored in the first variable in the input- 
list, the process is repeated. In an executing program, several 
values mav be input on a single request be separating them with 
commas. If these values are not used up in the current INPUT 
statement they are saved for subsequent INPUT statements.. The 
question mark is prompted only when a new line of input values is 
required. Note that each line of input values must be terminated 
by a carriage return. Since expressions may be used as input 
values, any letter in the input line will be interpreted as the 
value of that variable. Thus if a program sets the value of A 
to 1, B to 2, and C to 3, and the following statement occurs 
during execution: 

INPUT X,Y,Z 
and the user types in 

A,C,B 
the values entered into X,Y, and Z will be 1, 3, and 2, respec- 
tively, just as if the numbers had been typed in. Note also that 


blanks on the input line are ignored by TINY, and the commas are 
required only for separation in cases of ambiguity. In the ex- 
ample above, 

ACB 
could have been typed in with the same results. However an input 
line. typed in as 

+1 -3 +6 0 
will be interpreted by TINY as a single value (=58) without commas 
for separators. 


Due to the vay TINY BASIC 6800 buffers its input lines, the 
INPUT statement cannot be directly executed for more than one vari- 
able at a time, and if the following statement is typed in without | 
a line number, 
INPUT A,B,C 
the value of B will be copied to A, and only one value (for C) will 
be requested from the console/terminal. Similarly, the statement, 

INPUT X;1,£,2,2,3 

will execute directly (loading X,Y, and Z with the values 1,2, and 
3), requesting no input, but with a line number in a program this 


statement will produce an error stop after requesting one value. 


If the number of expressions in the input line does not match 
the number of variables in the INPUT statement, the excess input is 
saved for the next INPUT statement, or another prompt is issued for 
more data. The user should note that misallignment in these circum- 
stances may result in incorrect program execution (the wrong data 
to the wrong variables). If this is suspected, data entry may be 
typed in one value at a time to observe its synchronization with 
PRINT statements in the program. 


There is no defined escape from an input request, but if an 
invalid expression is typed (such as a period or a pair of commas) 


an invalid expression error stop will occur. 
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Because TINY BASIC does not allow arrays about the only 
way to process large volumes of data is through paper tape files. 


Each input request prompt consists of a question mark followed by 


an X-ON (ASCII DC1) control character to turn on an automatic 
paper tape reader on the Teletype (if it is ready). A paper tape 
may be prepared in advance with data separated by commas, and an 
X-OFF (ASCII DC3 or Control -5) control character preceding the 
CR (a Teletype will generally read at least one more character 
after the X-OFF). In this way the tape will feed one line at a 
time, as requested by the succession of INPUT statements. This 
tape may also be prepared from a previous program output (see 

the PRINT statement). : 


' LET var = expression 


var = expression 


This statement assigns the value of the expression to the 
variable (var). The following are valid LET statements: 


LET A = B+C 
I =0 
LET Q * (RND (33) +5) 


GOTO expression 


The GOTO statement permits changes in the sequence of pro- 
gram execution. Normally programs are executed in the numerical 
sequence of the program line numbers, but the next statement to 
be executed after a GOTO has the line number derived by the eval- 
uation of the expression in the GOTO statement. Note that this 
permits you to compute the line number of the next statement on 
the basis of program parameters during program execution. An error 
stop occurs if the evaluation of the expression results in a num- 
ber for which there is no line. If a GOTO statement is executed 
directly, it has the same effect as if it were the first line of 
a program, and the RUN statement were typed in, that is, program 
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execution begins from that line number, even though it may not 
be the first in the program, Thus a program may be continued 
where it left off after correcting the cause of an error stop. - 
The following are valid GOTO statements: 

GOTO 100 

GO TO 200+I*10 

GOTOX 


GOSUB expression 
The GOSUB statement is like the GOTO statement,except that 


TINY remembers the line number of the GOSUB statement, so that 
the next occurrance of a RETURN statement will result in execu- 
tion proceeding from the statement following the GOSUB. Sub- 
routines called by GOSUB statements may be nested to any depth, 
limited only by the amount. of user program memory remaining. 
Note that a GOSUB directly executed will result in an error 
stop. at the corresponding RETURN. The following are some ex- 
amples of valid GOSUB statements: 

GOSUB 100 

GO SUB 20041410 


RETURN 

The RETURN statement transfers execution control to the 
line following the most recent unRETURNed GOSUB. If there is no 
matching GOSUB an error stop occurs. 


IF expression rel expression THEN statement 
IF expression rel expression statement 


The IF statement compares two expressions according to one 
of six relational operators. If the relationship is True, the 
statement is executed; if False, the associated statement is 
skipped. The six relational operators are: 

= equality 
< less than 
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5 greater than 


< = less or equal (not greater) 
>= greater or equal (not less) 
<>, >< not equal (greater or less) 


The statement may be any valid TINY BASIC 6800 statement 
(including another IF statement). The following are valid IF 
statements: | 

IF 1225 THEN PRINT "ERROR" 

IF N/P*P=N GOTO 100 

IF I=2 Then this is nonsense i 

IF RND (100) 250 THEN IF I <> J INPUT O,R 


END 

The END statement must be the last executable statement in 
a program. Failure to include an END statement will result in an. 
error stop after the last line of the program is executed. The 
END statement mav be used to terminate. a program at anv time, and 
there mav be as manv END statements in a program às needed.. The 
END statement also clears out any saved GOSUB line numbers remain- 
ing, and mav be used for that purpose in the direct execution mode. 


REM Comments 
| The REM statement permits comments (remarks) to be inter- 


. spersed in the program. Its execution has no effect on program 


execution, except for the time taken. 


CLEAR 

The CLEAR statement formats the user program space, deleting 
any previous programs. If included in a program (i.e. with a line 
number) the program becomes suicidal when the statement is exe- 


cuted, although no error results. 
RUN 


RUN, Expression-list 
“The RUN statement is used to begin program execution at the 
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first (lowest) line number. If the RUN statement is directly exe- 
cüted, it may be followed by a comma, followed by values to be 
input when the program executes an INPUT statement. 


© If the RUN statement is included in a program with a line 
number, its execution works like a GO TO first statement of the 


program. 


LIST 
LIST Expression 
LIST Expression, Expression 


The LIST statement causes part or all of the user program 
to be listed.' If no parameters are given, the whole program is 
listed. A single expression parameter is evaluated to a line number 
which, if it exists, is listed. If both expression parameters are 
given, all of the lines with line numbers.between the two values 
(inclusive) are listed. If the last expression in the LIST:state- 
ment evaluates to a number for which there is no line, the next 
line above that number which does exist (if any) is listed as 
the last line. Zero is not a valid line number, and an error 
stop will occur if one of the expressions evaluates to zero. `À 
LIST statement may be included as part of the program, which. may 
be used for printing large text strings such as instructions to 
the operator. A listing may be terminated by the Break key. 
The. following are valid LIST statements: 


LIST 

LIST 75 + 25 (lists line 100) 
LIST 100,200 

LIST 400,300 (lists nothing) 
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APPENDIX A 
ERROR MESSAGE SUMMARY | 


Break during execution 

Memory overflovş line not inserted 
Line number 0 not alloved | 

RUN with no program in memory 

LET is missing a variable name 

LET is missing a = 

Improper syntax in LET 

LET is not followed by END 
Improper syntax in GOTO 

No line to GO TO 

Misspelled GOTO 

Misspelled GOSUB 

GOSUB subroutine. does not exist 
PRINT not followed by END 

Missing close quote in PRINT. string 


Colon in PRINT is not at end of statement 


PRINT not followed by END 
If not followed by END 


INPUT suntax bad - expects variable name 


INPUT syntax bad - expects comma 
INPUT not followed by END 

RETURN suntax bad 

RETURN has no matching GOSUB 
GOSUB not followed by END 

END syntax bad 

Can't LIST line number 0 

LIST syntax error - expects comma 
REM not followed by END 

Missing statement type keyword 
Misspelled statement type keyword 
Memory overflow: too many GOSUB's , 
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211 . : . or expression to complex 
224 Divide by 0 

226 Memory overflow 

232 Expression too complex . 


233 . . . using RND . .. 
234 . . . in direct evaluation; 
252 . . . Simplify the expression 


259 RND (0) not allowed 

266 Expression too complex 

267 . . for RND 

275 USR expects "(" before arguments 


284 USR expects ")" after arguments 


287 Expression too complex 

288 . . for USR 

290 Expression too complex 

304 Memorv overflow (in function evaluation) 

306 Syntax error - expects "(" for function arguments 
330 IF syntax error - expects relation operator 
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line : iz 


statement 


printlist 


printitem :: 


varlist 


esprlist 


expression 


H 


APPENDIX B 
FORMAL DEFINITION OF TINY BASIC 6800 


number statement CR 
statement CR 


PRINT printlist 

PR printlist 

INPUT varlist 

LET var = expression 

var = expression 

GOTO = expression 

GOSUB expression 

RETURN 

IF expression relop expression THEN statement 
IF expression relop expression statement 
REM commentstring 

CLEAR 

RUN 

RUN exprlist 

LIST 

LİST exprlist 


printitem 


printitem 


printitem separator printlist 
expression 


"characterstring" 


var 


var, varlist 


expression 


expression, exprlist 


115 unsignedexpr 


+ unsignedexpr 
— unsignedexpr 


-17- 


term iin factor 
factor * term 
factor / term 
factor ::= var 
. number 


( expression ) 


function 


function ::5 RND ( expression ) 
USR ( exprlist ) 


number ::= digit 
digit number 
separator ::= 1 
var 1:5 A! 
digit ::= 0 
< 


relop ::- 


v 
il 


Bil... DY! 
1 
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APPENDIX C 
MAKING EROMS FROM PAPER TAPE 


If you received Tiny Basic in the form of a Paper Tape, the 
contents of the tape must be copied onto four 56834 Erasable ROMS 
before the program can be used, These are prepared in the follow- 
ing way: 

Place the tape in the reader of your Teletype with the 

RAM switch set for high memory, and type 

>L FCOO-FDFF+1C00 

When the Teletype ball begins to bounce, stop the reader, 

type an Escape, then insert an EROM in the Burner socker 


and type 
B >B 
When Proto comes back with a caret prompt (about 45 seconds), re- 
move the EROM and label it "EO". Back the paper tape in the reader 


up about eight inches (over the previous line break), and type 
>L FCOO-FDFF+1A00 

Within ten seconds after starting the reader the Teletype ball 
should bounce twice, then. loading continues for the second EROM. 
If the ball bounces about 30 times, you backed the tape too far; 
this does not hurt anything. If it does not bounce at all (except 
at the line breaks), you did not back up far enough; stop the 
reader, type an ESCape, and try again, pulling the tape back through 
farther than before. When the teletype ball begins to bounce again, 
stop the teader, and burn the EROM to be labeled "El". Repeat also 
for +1800 ("E2") and +1600 ("E3"). At the end of the tape (i.e. 
while loading for the last EROM), the reader will stop itself, and 
Proto will type 

EOP 

> 
This is normal, and you may proceed directly to burn the last EROM. 
The EROM"s are then plugged into the sockets in the Proto board 
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(positions 8-9 respectively}, the RAM switch set to "low", and 
the command typed, 


>G EOOO 
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LOCATION: 
0000-000F 
0010-001D 
001E-001F 
0020-0021 
0022-0023 
0024-0025 
0026-0027 
0028-002F 
0030-007F 
0080-0081 
0082-0083 
0084-0085 
00B4-00B5 
00B6-00C7 
00B8 


E000 
E003 
E006 08 
E009 OB 
EDOC OE 
E OOP 
E010 
EÜLL 
E012 
E 013 
E014 


E018 


APPENDIX D 
LOW MEMORY MAP 


' SIGNIFICANCE 


Not used by Tiny 

Proto version temporaries 

1K split RAM flag (0200=split) 
Lowest address of user program space 
Highest address of program space 
Program end + stack reserve 

Top. of GOSUB stack 

Interpreter parameters 

Input line buffer & Computation stack 
Random Number Generator workspace 
Variable "A" 

Variable "B" 


Variable "Z" 
Interpreter temporaries 
Start of User program (PROTO) 


Cold Start entry: point 

Warm Start entry point 

JMP (or JSR) to character input 
JMP to character output 

JMP to Break test 

Backspace code 

Line Cancel code 


Pad character 


Tape Mode Enable flag (hex 80 = enabled) 


Spare stack size 
Subroutine to read one Byte 

from RAM to BEA (address in X) 
Subroutine to store A&B into RAM 


at address in X 
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10 
20 
30 
40 
50 
60 
70 


100 
109 
110 
120 
130 
140 
150 
160 
170 
200 
210 
215 
220 
230 
235 
240 
250 
275 
280 
290 
300 
305 


APPENDIX E 
AN EXAMPLE PROGRAM 


REM DISPLAY 64 RANDOM NUMBERS < 100 ON '8 LINES 
TI=0 

PRINT RND (100) 

LET IsTAI 

IF 1/888-T THEN PRINT 

IF 1<64 THEN GOTO 30 

END 


REM PRINT HEX MEMORY DUMP 
REM INITIALIZE 
Az-10 
2-11 
C=-12 
D=-13 
E=-14 
F=-15 
X = -1 
REM GET (HEX) ADDRESSES 
PRINT "DUMP: L,U"; 
REM INPUT STARTING ADDRESS IN HEX 
GOSUB 500 
LEN 
REM INPUT ENDING ADDRESS IN HEX 
GOSUB 500 
U=11 
REM TYPE OUT ADDRESS 
GOSUB 450 
REM GET MEMORY BYTE 
LET. N = USR. (-8172,L) 
REM CONVERT IT TO HEX 
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310 
320 
330 
335 


340 ` 


350 
355 
360 
365 
370 
375 
380 
390 
399 


400 


401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
ulu 
415 
416 
417 
418 
419 


LET M = N/16 

LET N = N-M#16 

PRINT " tt: 

REM PRINT IT 

GOSUB 400+M+M 

GOSUB 4OO+N+N 

REM END? 

IF L=U GO TO 390 

L=K+1 

IF L/16*16 = L GOTO 280 
REM DO 16 BYTES PER LINE 
GO TO 300 

PRINT 

PRINT ONE HEX DIGIT 
PRINT 0; 

RETURN 

PRINT 1; 

RETURN 


PRINT 2; 


RETURN 
PRINT 3; 
RETURN 
PRINT 4; 
RETURN 
PRINT 5; 
RETURN 
PRINT 6; 
RETURN 
PRINT 7; 
RETURN 
PRINT 8; 
RETURN 
PRINT 9; 
RETURN 
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420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
440 
450 
455 
460 
470 
480 
483 
486 
490 
495 
496 
500 
501 
502 
505 
509 
510 
520 
525 
530 
531 
535 


PRINT "A"; 
RETURN 
PRINT “BY; 
RETURN 
PRINT "et; 
RETURN 


ETURN 
EM PRINT HEX ADDRESS 


EM CONVERT IT TO HEX 
= L/4096 
IF N<0 N=-N 
OSUB 4O0+N+N 
LET N= (L-N*4096) 
GOSUB 400+N/256%2 
GOSUB 400+(N-N/256%*256)/16%*2 
GOTO 400+(N-N/16*16)*2 
GOTO -GOSUB, RETURN 
REM INPUT HEX NUMBER 
REM FORMAT IS NNNNX 
REM WHERE "N" IS ANY HEX DIGIT 
N=0 
REM INPUT LETTER OR STRING OF DIGITS 
INPUT R 
IF R=X RETURN 
REM CHECK FOR ERROR 
IF R>9999 THEN PRINT "BAD HEX ADDRESS 
REM NOTE ERROR STOP ON LINE 530 (ON PURPOSE!) 
REM CONVERT INPUT DECIMAL DIGITS TO HEX 


P 
R 
P 
R 
PRINT "F"; 
R 
R 
P 
R 
N 
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540 
545 
550 
555 
559 
560 
565 
570 
580 
590 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


IF Rp999 THEN NaN“16 

IF Ro39 THEN NaN*16 

IF R»9 THEN N=N*16 

IF Rp0 THEN R=R+R/1000*153+R/100*96+R/10%6 
REM PICK UP NON-DECIMAL DIGIT LETTERS 

IF Rap THEN LET R--R 

REM ADD NEV DIGIT TO PREVİOUS NUMBER 

LET N=N*16+R 

GOTO 510 

NOTE: DON'T NEED END HERE 


TO RUN RANDOM NUMBER PROGRAM, TYPE "RUN" 
IT WILL TYPE 8 LINES THEN STOP 

TO RUN HEX DUMP PROGRAM, TYPE "GOTO 100" 
IT WILL ASK FOR INPUT. TYPE 2 HEX ADDRESSES 
TERMINATED BY THE LETTER X, 

AND SEPARATED BY A COMMA 

THE PROGRAM WILL DUMP MEMORY BETWEEN 
THOSE TWO ADDRESSES, INCLUSIVE. 

EXAMPLE : 

:GOTO 100 

DUMP: L.U/ ATBEX, A246X 

ALBE EE FF 

A140 00 11 22 33 44 55 66 

IF THE RANDOM NUMBER PROGRAM. 

IS REMOVED, OR IF YOU TYPE IN 

:1 GOTO 100 


1160 THEN YOU CAN GET THE SAME. DUMP BY TVPING 


1170 
1180 
1190 


RUN, AIBEX, AIUG6X 


NOTE THAT THIS PROGRAM DEMONSTRATES NEARLY 


1200 EVERY FEATURE AVAILABLE IN TINY BASIC 6800 
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10000 
10001 
10002 
10003 
10004 


REMARK: . TO FIND OUT: HOW MUCH PROGRAM SPACE 
REM... YOU HAVE LEFT, TYPE: : 

LET PsUSR (-8172,. 38):«.USR (m8172,36) 

PRINT. P#256 + USR. l-8172, 39) - USR. C-8172,37) 
REM... OR COMBINE İT ALL INTO ONE PRINT. 
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REM THIS IS A DATA LOGGING PROGRAM, USING THE 1 KHZ ON-BOARD 
REM REAL-TIME CLOCK TO MAINTAIN THE TIME OF DAY, AND i 
«REM MONITORING THE DATA ON THE PROM BURNER PIA (EASY ACCESS 


:REM SOCKET); WHEN THE DATA CHANGES, THE NEW DATA IS PRINTED 

:REM WITH THE TIME OF CHANGE. AN INTERRUPT SERVICE ROUTINE 

REM IS STORED IN MEMORY LOCATIONS 0004-000F, USING THE USR 

:REM FUNCTION (LINES 560-590). LINE 550 STORES AN CLI INSTRUCTION 
:REM WITH RTS IN LOCATIONS 0002-0003, AND LINE 600 SETS UP THE 

:REM INTERRUPT VECTORE AND ENABLES THE INTERRUPTS BY JUMPING 

:REM TO THE SUBROUTINE AT 0002. LINE 620 SETS UP THE CONTROL 

REM AND THE DATA DIRECTION REGISTERS OF THE PIA. THE DATA SAMPLED 
REM IS THE PROM DATA BUS, AND IS ACCESIBLE ON PINS 2-9 OF THE 


REM PROM BURNER SOCKET. NOTE THAT THIS PROGRAM OCCUPIES NEARLY 
“REM ALL OF THE RAM ON THE PROTO BOARD, BUT LINES 510-620 ARE 
:REM EXECUTED ONLY TO SET UP MEMORY, AND MAY BE ENTERED WITHOUT 
:REM LINE NUMBERS (DIRECT EXECUTION) TO SAVE SPACE. 

:LIST 


90 GOSUB 50 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
300 
310 
320 
330 


R=USR(I,X) 

IF R<>D GOSUB300 
IF U-T<1000 GOTOP 
T=T+1000 

S=S+1 

IF S<60 GOTOP 
5=0 

M=M+1 

IF M<60 GOTOP 
M=0 

H=H+1 

GOTOP 

PRINT 

DER 

N=0 

R=R*256 
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340 B=0 

350 IF RO. Bel 

360 PRB; 

380 N=N+1 

390 R=R+R 

400 IF N<8 GOTO 340 

410 PR" "H3" 1 M3 "3 S3 

420 RETURN 

500 P=100 

510 S=-8168. 

520 I58-4 

550 AzUSR(S,2,14) #USR(S,3,57) 

560 AsUSR(S,4,183)+USR(S,6,196) , 
570 A-USR(S,7,124)4USR(5,8,0)#USR(S,9,171) ` 
580 A=USR(S,10,38)+USR(S,11,3) | 
590 A=USR(S,12,124)+USR(S,13,0)+USR(S,14,170) 
600 A=USR(S,15,59)+USR(S,-8,0)+USR(S,-7,4)+USR(2) 
810 X=-1082 

620 A-USR(S,X-1,7) +USR(S,X+1,0) LUSR(S,X,0) +USR(S,X+1,4) 
630 D-USR(I,X) 

640 PR "TIME (H,M,5)"; 

650 INPUT H,M,S 

660 LET T=U 

680 RETURN 


:RUN 
TIME (H,M,S)? 3,17,50 


00000000 3:17:59 
00100000 3:18:10 
00000000 3:18:15 
00000001 3:18:16 
00000000. 3:18:30 
10000000 3:18:31 
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